www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/ly/default.asp
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="siva">
<meta name="description" content="siva">
<title><%=webname%></title>
<style type="text/css">
td{font-size:12px;}
</style>
</head>
<body topMargin=0 style="font-size: 10pt; font-family: 宋体" leftmargin="0" rightmargin="0" bottommargin="0">
<script language="javascript" src="../top.js"></script>
<div align="center">
<table width='729' border='0' cellpadding='0' cellspacing='0'>
<tr><td height='20' style='font-size:12px;color:#000000;background:#72BEFE url('images/bg1.gif');BORDER-RIGHT:1px solid #aaaaaa;padding-top:3px'>
<b><font color="#FFFFFF">当前位置：</font><a href="<%=weburl%>"><font color="#FFFFFF">首页</font></a><font color="#FFFFFF"> >> 留言板</font></b></td>
</tr>
</table>
</div>
<table width='729' border='0' align='center' cellpadding='0' cellspacing='0'>
<tr><td height='10' colspan='2'></td></tr>
</table>
<TABLE width=728 border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="59">
<p align="left"><img border="0" src="images/1.gif" width="53" height="50"></TD>
<TD style="font-size: 14pt; color: #000080">QQ:917195699</TD>
<TD align=right width="7%" height="28">
<p align="left">
<img border="0" src="images/gongg.GIF" width="50" height="50"></TD>
<TD align=right width="53%" height="28">
<table border="0" width="100%">
<tr>
<td background="images/bg2.GIF" height="43">
<marquee scrollamount="3" width="351"><img src="images/m19.gif">__<%=webtake%></marquee></td>
</tr>
</table>
</TD>
<TD align=right width=99 height="28">
<INPUT style="BORDER-RIGHT: 2px solid #000080; FONT-SIZE: 14px; BACKGROUND: #D3EDFF; WIDTH: 80px; BORDER-BOTTOM: 2px solid #000080; HEIGHT: 22px;cursor:hand" type="button" value="发表新留言" name="btn1" onclick="javascript:window.location='add_ui.asp';"></TD>
</TR></TBODY></TABLE>
<%
strSourceFile = Server.MapPath("siva.xml")
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.load(strSourceFile)
Set objRootsite = objXML.documentElement.selectSingleNode("guestbook")
'每页显示*条留言
PageSize = cint(""&num&"")
'获取子节点数据（因为是从节点数从0开始的所最大子节点数要减1）
AllNodesNum = objRootsite.childNodes.length - 1
'算出总页数
PageNum = AllNodesNum\PageSize + 1
PageNo = cint(Request.querystring("PageNo"))
'如果是每一次获得页面则定位到每一页显示最新的留言
if PageNo="" or PageNo="0" then
PageNo = 1
end if
'获得起始节点
StarNodes = AllNodesNum - (PageNo - 1)*PageSize
'获得结束节点
EndNodes = StarNodes - PageSize + 1
if EndNodes < 0 then
EndNodes = 0
end If
'判断起始节点数是否超过总的节点数
if StarNodes > AllNodesNum then
'如果超过则结束节点要减去(StarNodes-AllNodesNum)的差值否则下标会超界出错
EndNodes=EndNodes-(StarNodes-AllNodesNum)
StarNodes=AllNodesNum
end if
if EndNodes < 0 then
EndNodes=0
end if
while StarNodes >= EndNodes
id=objRootsite.childNodes.item(StarNodes).childNodes.item(0).text
name=objRootsite.childNodes.item(StarNodes).childNodes.item(1).text
email=objRootsite.childNodes.item(StarNodes).childNodes.item(2).text
sex=objRootsite.childNodes.item(StarNodes).childNodes.item(3).text
content=objRootsite.childNodes.item(StarNodes).childNodes.item(4).text
addtime=objRootsite.childNodes.item(StarNodes).childNodes.item(5).text
reply=objRootsite.childNodes.item(starNodes).childNodes.item(6).text
hftime=objRootsite.childNodes.item(starNodes).childNodes.item(7).text
ip=objRootsite.childNodes.item(starNodes).childNodes.item(8).text
ip=split(ip,".")
uip=ip(0)&"."&ip(1)&"."&ip(2)&".*"
%>
<div align="center">
<TABLE width=728 border=0 cellPadding=0 cellSpacing=0 style="background-image: url('../images/left_top_bg01.gif'); background-repeat: repeat-x; border: 1px solid #FFFFFF; ">
<TBODY>
<TR>
<TD align=middle width=75 bgcolor="#A5D318" bordercolor="#FFFFFF">
<p align="left">
<img border="0" src="images/green1.gif" width="6" height="6"></TD>
<TD align=middle width=75 rowspan="2" bgcolor="#A5D318" bordercolor="#FFFFFF"> <%=name%></TD>
<TD style="BACKGROUND-COLOR: #dddddd" align=middle width=1 rowspan="2" bordercolor="#FFFFFF"> </TD>
<TD height=20 style="border-right:1px solid #A5D318; border-top:1px solid #A5D318; border-bottom:1px solid #A5D318; border-left-width:1px" bgcolor="#DDDDDD" rowspan="2" bordercolor="#FFFFFF"> <font color='#0066c9'><img src="images/list.gif">留言时间：</font><%=addtime%> <font color='#0066c9' style="FONT-FAMILY: georgia;font-size:11px;"><img src="images/email1.gif">：</font><a href="mailto:<%=email%>"><font style="FONT-FAMILY: georgia;font-size:11px;"><%=email%></font></a></TD></TR>
<TR>
<TD align=middle width=75 bgcolor="#A5D318" bordercolor="#FFFFFF"> </TD>
</TR>
<TR>
<TD align=middle width=150 height=70 colspan="2" style="border-left: 1px solid #A5D318; border-right-width: 1px; border-top: 1px solid #A5D318; border-bottom: 1px solid #A5D318"><img border="0" src="images/<%=sex%>"><BR>
<img src="images/off-v.gif">IP：<%=uip%></TD>
<TD style="BACKGROUND-COLOR: #dddddd" align=middle width=1> </TD>
<TD style="border-left-width: 1px; border-right: 1px solid #A5D318; border-top: 1px solid #A5D318; border-bottom: 1px solid #A5D318">
<TABLE cellSpacing=0 cellPadding=8 width="578" border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width="562" height="66" valign="top"><%
response.write replace(content,chr(13),"<br>")
if reply<>"" then
response.write "<br><br><font color='#f60044'>站长回复：</font>"
response.write reply
response.write "<p align=left><font color='#454545'>回复时间："
response.write hftime
response.write "</font></p>"
end if
%>
</TD>
</TR>
</TBODY>
</TABLE></TD></TR></TBODY></TABLE>
</div>
<TABLE height=8 align="center" cellSpacing=0 cellPadding=0 width=728 border=0>
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<%
StarNodes = StarNodes - 1
wend
set objXML = nothing
%>
<TABLE height=8 cellSpacing=0 cellPadding=0 width=728 border=0 align="center">
<TBODY>
<TR>
<TD></TD></TR></TBODY></TABLE>
<TABLE width=728 border=0 align="center" cellPadding=0 cellSpacing=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD width=526 height="22" valign="top"> 页数：<FONT color=red><%=pageno%></FONT>/<%=pagenum%>
<%if pageno <> 1 then
response.write "<a href='?pageno=1'>首页</a>"
response.write " <a href='?pageno="&pageno-1&"'>上一页</a>"
else
response.write "<FONT color=silver>首页 上一页</font>"
end if
if pageno <> pagenum then
response.write " <a href='?pageno="&pageno+1&"'>下一页</a>"
response.write " <a href='?pageno="&pagenum&"'>尾页</a>"
else
response.write " <FONT color=silver>下一页 尾页</font>"
end if%>
共有<FONT color=red><%=AllNodesNum+1%></FONT>篇(每页<%=PageSize%>篇)</TD>
<TD width=202 align=right valign=top style="padding-right:4px;">
<INPUT style="cursor:hand;BORDER-RIGHT: 2px solid #000080; BORDER-TOP: 2px solid #FFFFFF; FONT-SIZE: 14px; BACKGROUND: #D3EDFF; WIDTH: 80px; BORDER-BOTTOM: 2px solid #000080; HEIGHT: 22px" type="button" value="发表新留言" name="btn3" onclick="javascrit:window.location='add_ui.asp';"></TD>
</TR>
</TBODY>
</TABLE>
<!--留言程序结束-->
<TABLE height=8 cellSpacing=0 cellPadding=0 width=728 border=0 align="center">
<TBODY>
<TR>
<TD>
<p align="center"></TD></TR></TBODY></TABLE>
<script language="javascript" src="/bottom.js"></script><center>
<div align="center">
<table border="0" width="728" cellspacing="0" cellpadding="0">
<tr>
<td width="675" height="33"><a href="http://www.100-86.com">
<img border="0" src="images/an2.gif" width="200" height="32"></a></td>
<td rowspan="2">
<a href="login.asp">
<img border="0" src="images/06.GIF" width="53" height="50"></a></td>
</tr>
<tr>
<td width="675"><hr size="4"></td>
</tr>
</table>
</div>
<br>
Powered By <a href="http://www.100-86.com"><span style="text-decoration: none">www.100-86.com</span></a><span style="">
| </span>Copyright ©2010 <%=webname%><br><script src="counter.asp"></script></center></BODY></HTML>